<%@LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Function GetSecureVal(param) If IsEmpty(param) Or param = "" Then GetSecureVal = param Exit Function End If If IsNumeric(param) Then GetSecureVal = CLng(param) Else GetSecureVal = Replace(CStr(param), "'", "''") End If End Function Dim ID ID = GetSecureVal(Request.QueryString("ID")) Dim quote quote = chr(34) Dim cnn set cnn = Server.CreateObject("ADODB.CONNECTION") cnn.ConnectionString = conn_shan cnn.Open Function GetRecords(sSQL) Dim rst Set rst = Server.CreateObject("ADODB.RECORDSET") set rst.ActiveConnection = cnn rst.CursorType = 3 rst.CursorLocation = 3 rst.LockType = 3 rst.Open sSQL ',adOpenStatic, adLockReadOnly Set GetRecords = rst END Function Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub %> Detailed Information (PCD) --- BIDD
<% Dim StrSQL, StrSQL1, rst, rst1 StrSQL = "SELECT * FROM crosstalk where ID ="""&ID&"""" Set rst = GetRecords(StrSQL) StrSQL1 = "SELECT * FROM reference where ID ="""&ID&"""" Set rst1 = GetRecords(StrSQL1) %>
 
  BIDD Pharmainformatics Databases
Pathway Crosstalk Database
National University of Singapore, Science Faculty, Computational Sci Dept
 
   
   

Detailed Information for "><%= Server.HTMLEncode(rst.Fields("ID").value & " ")%>


<% Dim myFSO, filename Dim strFilePath filename="c:\inetpub\wwwroot\group\PCD\img\" & ID & ".png" Set myFSO = Server.CreateObject("Scripting.FileSystemObject") If myFSO.FileExists(strFilePath & filename) = true Then Response.Write "" Response.Write "" Dim myFSO2, filename2 Dim strFilePath2 filename2="c:\inetpub\wwwroot\group\PCD\img\" & ID & ".htm" Set myFSO2 = Server.CreateObject("Scripting.FileSystemObject") If myFSO2.FileExists(strFilePath2 & filename2) = true Then Response.Write "" Else Response.Write "" End If Response.Write "" Else Response.Write "" Response.Write "" Response.Write "" Response.Write "" End If %>

Field Name

Content

Crosstalk Partner A

"><%= Server.HTMLEncode(rst.Fields("PA").value & " ")%>
Crosstalk Partner B "><%= Server.HTMLEncode(rst.Fields("PB").value & " ")%>

Crosstalk Mediator

<%= Server.HTMLEncode(rst.Fields("CM").value & " ")%>
Crosstalk Effect <%= Server.HTMLEncode(rst.Fields("CE").value & " ")%>  

Literature Descriptions

<%= Server.HTMLEncode(rst.Fields("LD").value & " ")%>  
Related Disease or Process <%= Server.HTMLEncode(rst.Fields("CT").value & " ")%>
Reference <% Dim count count = 0 Do While not rst1.EOF count = count + 1 If count = 1 Then Response.Write "

" & count & ". " & Server.HTMLEncode(rst1.Fields("RF").value & " ") & "PubMed

" End If If count > 1 Then Response.Write "

" & count & ". " & Server.HTMLEncode(rst1.Fields("RF").value & " ") & "PubMed

" End If rst1.MoveNext Loop %>
" & "" & "Crosstalk Map" & "

" & "Click to view big map" & "

" & "Click to view big map" & "

" & "" & "Crosstalk Map" & "

" & "The map will be available soon. Click here to see an example entry with crosstalk map." & "


<  Back    Search    Guestbook >

 

Please kindly sign our Guest book, or report any bugs to liuxin@nus.edu.sg .

Dr. Chen Yuzong
BIDD Group, Department of Pharmacy
Centre for Computational Science & Engineering, NUS.
All rights reserved.
 
   
           
 
Computer-aided Drug Design
about BIDD |  databases |  software |  teaching |  research |  links

Department of Computational Science | National University of Singapore | Blk S17, 3 Science Drive 2, Singapore 117543
<% set cnn = nothing cleanup rst %>